home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 2.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 35 30 3a 31 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:50:19 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 65 6c 2f |s-20.3/l|isp/mel/|
|000000a0| 6d 65 6c 2d 75 2e 65 6c | 0a 3b 3b 3b 20 65 6d 61 |mel-u.el|.;;; ema|
|000000b0| 63 73 20 76 65 72 73 69 | 6f 6e 20 32 30 2e 34 20 |cs versi|on 20.4 |
|000000c0| 22 45 6d 65 72 61 6c 64 | 22 20 58 45 6d 61 63 73 |"Emerald|" XEmacs|
|000000d0| 20 20 4c 75 63 69 64 2e | 0a 3b 3b 3b 20 62 79 74 | Lucid.|.;;; byt|
|000000e0| 65 63 6f 6d 70 20 76 65 | 72 73 69 6f 6e 20 32 2e |ecomp ve|rsion 2.|
|000000f0| 32 35 20 58 45 6d 61 63 | 73 3b 20 32 32 2d 4d 61 |25 XEmac|s; 22-Ma|
|00000100| 72 2d 39 36 2e 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 |r-96..;;|; optimi|
|00000110| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|00000120| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|00000130| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|00000140| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000150| 6d 61 63 73 20 31 39 2e | 0a 0a 28 69 66 20 28 61 |macs 19.|..(if (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000170| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000180| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000190| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|000001a0| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|000001b0| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 | (st|ring-les|
|000001c0| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|000001d0| 20 22 32 30 22 29 29 29 | 0a 20 20 20 20 28 65 72 | "20")))|. (er|
|000001e0| 72 6f 72 20 22 60 6d 65 | 6c 2d 75 2e 65 6c 27 20 |ror "`me|l-u.el' |
|000001f0| 77 61 73 20 63 6f 6d 70 | 69 6c 65 64 20 66 6f 72 |was comp|iled for|
|00000200| 20 45 6d 61 63 73 20 32 | 30 22 29 29 0a 0a 28 6f | Emacs 2|0"))..(o|
|00000210| 72 20 28 62 6f 75 6e 64 | 70 20 27 63 75 72 72 65 |r (bound|p 'curre|
|00000220| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 29 20 28 73 |nt-load-|list) (s|
|00000230| 65 74 71 20 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |etq curr|ent-load|
|00000240| 2d 6c 69 73 74 20 6e 69 | 6c 29 29 0a 0a 0a 28 62 |-list ni|l))...(b|
|00000250| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 21 88 c0 c2 |yte-code| "..!...|
|00000260| 21 87 22 20 5b 72 65 71 | 75 69 72 65 20 65 6d 75 |!." [req|uire emu|
|00000270| 20 6d 65 6c 5d 20 32 29 | 0a 23 40 35 39 20 2a 6c | mel] 2)|.#@59 *l|
|00000280| 69 73 74 20 6f 66 20 75 | 75 65 6e 63 6f 64 65 20 |ist of u|uencode |
|00000290| 65 6e 63 6f 64 65 72 20 | 70 72 6f 67 72 61 6d 20 |encoder |program |
|000002a0| 6e 61 6d 65 20 61 6e 64 | 20 69 74 73 20 61 72 67 |name and| its arg|
|000002b0| 75 6d 65 6e 74 73 2e 1f | 0a 28 64 65 66 76 61 72 |uments..|.(defvar|
|000002c0| 20 75 75 65 6e 63 6f 64 | 65 2d 65 78 74 65 72 6e | uuencod|e-extern|
|000002d0| 61 6c 2d 65 6e 63 6f 64 | 65 72 20 27 28 22 75 75 |al-encod|er '("uu|
|000002e0| 65 6e 63 6f 64 65 22 20 | 22 2d 22 29 20 28 23 24 |encode" |"-") (#$|
|000002f0| 20 2e 20 2d 36 33 38 29 | 29 0a 23 40 35 39 20 2a | . -638)|).#@59 *|
|00000300| 6c 69 73 74 20 6f 66 20 | 75 75 65 6e 63 6f 64 65 |list of |uuencode|
|00000310| 20 64 65 63 6f 64 65 72 | 20 70 72 6f 67 72 61 6d | decoder| program|
|00000320| 20 6e 61 6d 65 20 61 6e | 64 20 69 74 73 20 61 72 | name an|d its ar|
|00000330| 67 75 6d 65 6e 74 73 2e | 1f 0a 28 64 65 66 76 61 |guments.|..(defva|
|00000340| 72 20 75 75 65 6e 63 6f | 64 65 2d 65 78 74 65 72 |r uuenco|de-exter|
|00000350| 6e 61 6c 2d 64 65 63 6f | 64 65 72 20 28 62 79 74 |nal-deco|der (byt|
|00000360| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 c3 0c 5c 22 45 |e-code "|.....\"E|
|00000370| 87 22 20 5b 22 73 68 22 | 20 22 2d 63 22 20 66 6f |." ["sh"| "-c" fo|
|00000380| 72 6d 61 74 20 22 28 63 | 64 20 25 73 3b 20 75 75 |rmat "(c|d %s; uu|
|00000390| 64 65 63 6f 64 65 29 22 | 20 6d 69 6d 65 2d 74 65 |decode)"| mime-te|
|000003a0| 6d 70 2d 64 69 72 65 63 | 74 6f 72 79 5d 20 35 29 |mp-direc|tory] 5)|
|000003b0| 20 28 23 24 20 2e 20 2d | 37 36 37 29 29 0a 23 40 | (#$ . -|767)).#@|
|000003c0| 31 35 39 20 45 6e 63 6f | 64 65 20 63 75 72 72 65 |159 Enco|de curre|
|000003d0| 6e 74 20 72 65 67 69 6f | 6e 20 62 79 20 75 6e 6f |nt regio|n by uno|
|000003e0| 66 66 69 63 69 61 6c 20 | 75 75 65 6e 63 6f 64 65 |fficial |uuencode|
|000003f0| 20 66 6f 72 6d 61 74 2e | 0a 54 68 69 73 20 66 75 | format.|.This fu|
|00000400| 6e 63 74 69 6f 6e 20 75 | 73 65 73 20 65 78 74 65 |nction u|ses exte|
|00000410| 72 6e 61 6c 20 75 75 65 | 6e 63 6f 64 65 20 65 6e |rnal uue|ncode en|
|00000420| 63 6f 64 65 72 20 77 68 | 69 63 68 20 69 73 20 73 |coder wh|ich is s|
|00000430| 70 65 63 69 66 69 65 64 | 20 62 79 0a 76 61 72 69 |pecified| by.vari|
|00000440| 61 62 6c 65 20 60 75 75 | 65 6e 63 6f 64 65 2d 65 |able `uu|encode-e|
|00000450| 78 74 65 72 6e 61 6c 2d | 65 6e 63 6f 64 65 72 27 |xternal-|encoder'|
|00000460| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 75 75 |...(defa|lias 'uu|
|00000470| 65 6e 63 6f 64 65 2d 65 | 78 74 65 72 6e 61 6c 2d |encode-e|xternal-|
|00000480| 65 6e 63 6f 64 65 2d 72 | 65 67 69 6f 6e 20 23 5b |encode-r|egion #[|
|00000490| 28 73 74 61 72 74 20 65 | 6e 64 29 20 22 8a c0 c1 |(start e|nd) "...|
|000004a0| 89 1a 1b 1c c5 c6 0e 07 | 0e 08 0e 09 40 ca 89 c0 |........|....@...|
|000004b0| 0e 09 41 26 08 88 2b 65 | 62 88 cb cc c0 ca 23 ad |..A&..+e|b.....#.|
|000004c0| 86 cd ce 21 88 aa 73 29 | 87 22 20 5b 6e 69 6c 20 |...!..s)|." [nil |
|000004d0| 62 69 6e 61 72 79 20 63 | 6f 64 69 6e 67 2d 73 79 |binary c|oding-sy|
|000004e0| 73 74 65 6d 2d 66 6f 72 | 2d 77 72 69 74 65 20 63 |stem-for|-write c|
|000004f0| 6f 64 69 6e 67 2d 73 79 | 73 74 65 6d 2d 66 6f 72 |oding-sy|stem-for|
|00000500| 2d 72 65 61 64 20 73 65 | 6c 65 63 74 69 76 65 2d |-read se|lective-|
|00000510| 64 69 73 70 6c 61 79 20 | 61 70 70 6c 79 20 63 61 |display |apply ca|
|00000520| 6c 6c 2d 70 72 6f 63 65 | 73 73 2d 72 65 67 69 6f |ll-proce|ss-regio|
|00000530| 6e 20 73 74 61 72 74 20 | 65 6e 64 20 75 75 65 6e |n start |end uuen|
|00000540| 63 6f 64 65 2d 65 78 74 | 65 72 6e 61 6c 2d 65 6e |code-ext|ernal-en|
|00000550| 63 6f 64 65 72 20 74 20 | 72 65 2d 73 65 61 72 63 |coder t |re-searc|
|00000560| 68 2d 66 6f 72 77 61 72 | 64 20 22 0d 24 22 20 72 |h-forwar|d ".$" r|
|00000570| 65 70 6c 61 63 65 2d 6d | 61 74 63 68 20 22 22 5d |eplace-m|atch ""]|
|00000580| 20 39 20 28 23 24 20 2e | 20 39 36 34 29 20 22 2a | 9 (#$ .| 964) "*|
|00000590| 72 22 5d 29 0a 23 40 31 | 35 39 20 44 65 63 6f 64 |r"]).#@1|59 Decod|
|000005a0| 65 20 63 75 72 72 65 6e | 74 20 72 65 67 69 6f 6e |e curren|t region|
|000005b0| 20 62 79 20 75 6e 6f 66 | 66 69 63 69 61 6c 20 75 | by unof|ficial u|
|000005c0| 75 65 6e 63 6f 64 65 20 | 66 6f 72 6d 61 74 2e 0a |uencode |format..|
|000005d0| 54 68 69 73 20 66 75 6e | 63 74 69 6f 6e 20 75 73 |This fun|ction us|
|000005e0| 65 73 20 65 78 74 65 72 | 6e 61 6c 20 75 75 65 6e |es exter|nal uuen|
|000005f0| 63 6f 64 65 20 64 65 63 | 6f 64 65 72 20 77 68 69 |code dec|oder whi|
|00000600| 63 68 20 69 73 20 73 70 | 65 63 69 66 69 65 64 20 |ch is sp|ecified |
|00000610| 62 79 0a 76 61 72 69 61 | 62 6c 65 20 60 75 75 65 |by.varia|ble `uue|
|00000620| 6e 63 6f 64 65 2d 65 78 | 74 65 72 6e 61 6c 2d 64 |ncode-ex|ternal-d|
|00000630| 65 63 6f 64 65 72 27 2e | 1f 0a 28 64 65 66 61 6c |ecoder'.|..(defal|
|00000640| 69 61 73 20 27 75 75 65 | 6e 63 6f 64 65 2d 65 78 |ias 'uue|ncode-ex|
|00000650| 74 65 72 6e 61 6c 2d 64 | 65 63 6f 64 65 2d 72 65 |ternal-d|ecode-re|
|00000660| 67 69 6f 6e 20 23 5b 28 | 73 74 61 72 74 20 65 6e |gion #[(|start en|
|00000670| 64 29 20 22 8a 8a 8c 08 | 09 7d 88 08 62 88 c2 c3 |d) "....|.}..b...|
|00000680| c4 c5 23 ad 8a c6 c7 21 | ad 85 c8 94 c8 95 7b 2a |..#....!|......{*|
|00000690| 89 1e 09 ad b2 c4 ca 89 | 1e 0b 1e 0c 1e 0d ce cf |........|........|
|000006a0| 08 09 0e 10 40 c5 c4 89 | 0e 10 41 26 08 88 d1 0e |....@...|..A&....|
|000006b0| 09 0e 12 5c 22 16 09 ca | 1e 0c d3 0e 09 21 88 29 |...\"...|.....!.)|
|000006c0| c5 1e 14 d5 0e 09 21 2c | 2a 87 22 20 5b 73 74 61 |......!,|*." [sta|
|000006d0| 72 74 20 65 6e 64 20 72 | 65 2d 73 65 61 72 63 68 |rt end r|e-search|
|000006e0| 2d 66 6f 72 77 61 72 64 | 20 22 5e 62 65 67 69 6e |-forward| "^begin|
|000006f0| 20 5b 30 2d 39 5d 2b 20 | 22 20 6e 69 6c 20 74 20 | [0-9]+ |" nil t |
|00000700| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 2e 2b 24 22 |looking-|at ".+$"|
|00000710| 20 30 20 66 69 6c 65 6e | 61 6d 65 20 62 69 6e 61 | 0 filen|ame bina|
|00000720| 72 79 20 63 6f 64 69 6e | 67 2d 73 79 73 74 65 6d |ry codin|g-system|
|00000730| 2d 66 6f 72 2d 77 72 69 | 74 65 20 63 6f 64 69 6e |-for-wri|te codin|
|00000740| 67 2d 73 79 73 74 65 6d | 2d 66 6f 72 2d 72 65 61 |g-system|-for-rea|
|00000750| 64 20 73 65 6c 65 63 74 | 69 76 65 2d 64 69 73 70 |d select|ive-disp|
|00000760| 6c 61 79 20 61 70 70 6c | 79 20 63 61 6c 6c 2d 70 |lay appl|y call-p|
|00000770| 72 6f 63 65 73 73 2d 72 | 65 67 69 6f 6e 20 75 75 |rocess-r|egion uu|
|00000780| 65 6e 63 6f 64 65 2d 65 | 78 74 65 72 6e 61 6c 2d |encode-e|xternal-|
|00000790| 64 65 63 6f 64 65 72 20 | 65 78 70 61 6e 64 2d 66 |decoder |expand-f|
|000007a0| 69 6c 65 2d 6e 61 6d 65 | 20 6d 69 6d 65 2d 74 65 |ile-name| mime-te|
|000007b0| 6d 70 2d 64 69 72 65 63 | 74 6f 72 79 20 69 6e 73 |mp-direc|tory ins|
|000007c0| 65 72 74 2d 66 69 6c 65 | 2d 63 6f 6e 74 65 6e 74 |ert-file|-content|
|000007d0| 73 20 69 6e 68 69 62 69 | 74 2d 72 65 61 64 2d 6f |s inhibi|t-read-o|
|000007e0| 6e 6c 79 20 64 65 6c 65 | 74 65 2d 66 69 6c 65 5d |nly dele|te-file]|
|000007f0| 20 31 30 20 28 23 24 20 | 2e 20 31 34 33 35 29 20 | 10 (#$ |. 1435) |
|00000800| 22 2a 72 22 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 |"*r"]).(|byte-cod|
|00000810| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 87 22 |e "...\"|....\"."|
|00000820| 20 5b 64 65 66 61 6c 69 | 61 73 20 75 75 65 6e 63 | [defali|as uuenc|
|00000830| 6f 64 65 2d 65 6e 63 6f | 64 65 2d 72 65 67 69 6f |ode-enco|de-regio|
|00000840| 6e 20 75 75 65 6e 63 6f | 64 65 2d 65 78 74 65 72 |n uuenco|de-exter|
|00000850| 6e 61 6c 2d 65 6e 63 6f | 64 65 2d 72 65 67 69 6f |nal-enco|de-regio|
|00000860| 6e 20 75 75 65 6e 63 6f | 64 65 2d 64 65 63 6f 64 |n uuenco|de-decod|
|00000870| 65 2d 72 65 67 69 6f 6e | 20 75 75 65 6e 63 6f 64 |e-region| uuencod|
|00000880| 65 2d 65 78 74 65 72 6e | 61 6c 2d 64 65 63 6f 64 |e-extern|al-decod|
|00000890| 65 2d 72 65 67 69 6f 6e | 5d 20 33 29 0a 23 40 31 |e-region|] 3).#@1|
|000008a0| 35 37 20 49 6e 73 65 72 | 74 20 66 69 6c 65 20 65 |57 Inser|t file e|
|000008b0| 6e 63 6f 64 65 64 20 62 | 79 20 75 6e 6f 66 66 69 |ncoded b|y unoffi|
|000008c0| 63 69 61 6c 20 75 75 65 | 6e 63 6f 64 65 20 66 6f |cial uue|ncode fo|
|000008d0| 72 6d 61 74 2e 0a 54 68 | 69 73 20 66 75 6e 63 74 |rmat..Th|is funct|
|000008e0| 69 6f 6e 20 75 73 65 73 | 20 65 78 74 65 72 6e 61 |ion uses| externa|
|000008f0| 6c 20 75 75 65 6e 63 6f | 64 65 20 65 6e 63 6f 64 |l uuenco|de encod|
|00000900| 65 72 20 77 68 69 63 68 | 20 69 73 20 73 70 65 63 |er which| is spec|
|00000910| 69 66 69 65 64 20 62 79 | 0a 76 61 72 69 61 62 6c |ified by|.variabl|
|00000920| 65 20 60 75 75 65 6e 63 | 6f 64 65 2d 65 78 74 65 |e `uuenc|ode-exte|
|00000930| 72 6e 61 6c 2d 65 6e 63 | 6f 64 65 72 27 2e 1f 0a |rnal-enc|oder'...|
|00000940| 28 64 65 66 61 6c 69 61 | 73 20 27 75 75 65 6e 63 |(defalia|s 'uuenc|
|00000950| 6f 64 65 2d 69 6e 73 65 | 72 74 2d 65 6e 63 6f 64 |ode-inse|rt-encod|
|00000960| 65 64 2d 66 69 6c 65 20 | 23 5b 28 66 69 6c 65 6e |ed-file |#[(filen|
|00000970| 61 6d 65 29 20 22 c0 09 | 40 5c 6e c3 c4 c5 5c 6e |ame) "..|@\n...\n|
|00000980| 21 25 87 22 20 5b 63 61 | 6c 6c 2d 70 72 6f 63 65 |!%." [ca|ll-proce|
|00000990| 73 73 20 75 75 65 6e 63 | 6f 64 65 2d 65 78 74 65 |ss uuenc|ode-exte|
|000009a0| 72 6e 61 6c 2d 65 6e 63 | 6f 64 65 72 20 66 69 6c |rnal-enc|oder fil|
|000009b0| 65 6e 61 6d 65 20 74 20 | 6e 69 6c 20 66 69 6c 65 |ename t |nil file|
|000009c0| 2d 6e 61 6d 65 2d 6e 6f | 6e 64 69 72 65 63 74 6f |-name-no|ndirecto|
|000009d0| 72 79 5d 20 37 20 28 23 | 24 20 2e 20 32 32 31 31 |ry] 7 (#|$ . 2211|
|000009e0| 29 20 28 6c 69 73 74 20 | 28 72 65 61 64 2d 66 69 |) (list |(read-fi|
|000009f0| 6c 65 2d 6e 61 6d 65 20 | 22 49 6e 73 65 72 74 20 |le-name |"Insert |
|00000a00| 65 6e 63 6f 64 65 64 20 | 66 69 6c 65 3a 20 22 29 |encoded |file: ")|
|00000a10| 29 5d 29 0a 28 70 72 6f | 76 69 64 65 20 27 6d 65 |)]).(pro|vide 'me|
|00000a20| 6c 2d 75 29 0a | |l-u). | |
+--------+-------------------------+-------------------------+--------+--------+
